home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 2.iso / mac / DISK2 / DATA / mov.Dxr / 00029.ls < prev    next >
Encoding:
Text File  |  1997-03-24  |  2.7 KB  |  105 lines
  1. on exitFrame
  2.   if the movieRate of sprite 22 = 0 then
  3.     set the visible of sprite 8 to 1
  4.     set the visible of sprite 9 to 0
  5.   else
  6.     set the visible of sprite 8 to 0
  7.     set the visible of sprite 9 to 1
  8.   end if
  9.   go(the frame)
  10. end
  11.  
  12. on mouseDown
  13.   set sp to the clickOn
  14.   case sp of
  15.     2:
  16.       go("MV1")
  17.     3:
  18.       go("MV2")
  19.     4:
  20.       go("MV3")
  21.     5:
  22.       go("MV4")
  23.     6:
  24.       go("MV5")
  25.     7:
  26.       go("MV6")
  27.     17:
  28.       go("MV7")
  29.     18:
  30.       go("MV8")
  31.     8:
  32.       if the movieTime of sprite 22 >= the duration of member the memberNum of sprite 22 then
  33.         set the movieTime of sprite 22 to 0
  34.       end if
  35.       set the movieRate of sprite 22 to 1
  36.     9:
  37.       set the movieRate of sprite 22 to 0
  38.     10:
  39.       set the visible of sprite 10 to 0
  40.       set wk to the movieRate of sprite 22
  41.       set the movieRate of sprite 22 to 0
  42.       updateStage()
  43.       repeat while the stillDown
  44.         set t to the movieTime of sprite 22 + 60
  45.         if t > the duration of member the memberNum of sprite 22 then
  46.           set t to the duration of member the memberNum of sprite 22
  47.           set wk to 0
  48.           exit repeat
  49.         end if
  50.         set the movieTime of sprite 22 to t
  51.         updateStage()
  52.       end repeat
  53.       set the visible of sprite 10 to 1
  54.       set the movieRate of sprite 22 to wk
  55.     11:
  56.       set the visible of sprite 11 to 0
  57.       set wk to the movieRate of sprite 22
  58.       set the movieRate of sprite 22 to 0
  59.       updateStage()
  60.       repeat while the stillDown
  61.         set t to the movieTime of sprite 22 - 60
  62.         if t < 0 then
  63.           set t to 0
  64.           set wk to 0
  65.           exit repeat
  66.         end if
  67.         set the movieTime of sprite 22 to t
  68.         updateStage()
  69.       end repeat
  70.       set the visible of sprite 11 to 1
  71.       set the movieRate of sprite 22 to wk
  72.     12:
  73.       set the visible of sprite 12 to 0
  74.       set the visible of sprite 22 to 0
  75.       buttonaction2(sp)
  76.       go(#next)
  77.       set the visible of sprite 22 to 1
  78.       set the visible of sprite 12 to 1
  79.     13:
  80.       set the visible of sprite 8 to 1
  81.       set the visible of sprite 9 to 1
  82.       set the movieRate of sprite 22 to 0
  83.       buttonaction(sp)
  84.       go(1, "menu")
  85.     14:
  86.       set the visible of sprite 8 to 1
  87.       set the visible of sprite 9 to 1
  88.       set the movieRate of sprite 22 to 0
  89.       buttonaction(sp)
  90.       quit()
  91.     15:
  92.       set the movieRate of sprite 22 to 0
  93.       set the visible of sprite 15 to 0
  94.       set the visible of sprite 8 to 1
  95.       buttonaction(sp)
  96.       go(1)
  97.       set the visible of sprite 15 to 1
  98.     16:
  99.       set the visible of sprite 16 to 0
  100.       buttonaction2(sp)
  101.       set the movieTime of sprite 22 to 0
  102.       set the visible of sprite 16 to 1
  103.   end case
  104. end
  105.